10 clear 
20 NT=0;Y=40;X=-76
30 CY=Y;Y=Y-1;CX=X;X=X+1
40 print " ARCADIAN ";if X=-18 STOP
50 goto 30
:return ;run 
